home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / jockdem4.arc / LISTDEM2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-28  |  1KB  |  62 lines
  1. Program ListTTT5_Demo_2;
  2.  
  3. { This an example is extension of the program listdem1.pas. In this
  4.   example, the look and feel of the list have been modified by changing
  5.   the LTTT variable.
  6. }
  7.  
  8. Uses CRT, DOS, FastTTT5, WinTTT5, ListTTT5;
  9.  
  10. const
  11.     ListWidth = 60;
  12. type
  13.     StrList  = string[ListWidth];
  14.  
  15. var
  16.     MyList   : array[1..30] of StrList;
  17.  
  18.  Procedure Fill_MyList;
  19.  {}
  20.  begin
  21.      MyList[1] := 'Erica';
  22.      MyList[2] := 'Alison';
  23.      MyList[3] := 'Barbara';
  24.      MyList[4] := 'Sarah';
  25.      MyList[5] := 'Katy';
  26.      MyList[6] := 'Janice';
  27.      MyList[7] := 'Susan';
  28.      MyList[8] := 'Serita';
  29.      MyList[9] := 'Anne';
  30.      MyList[10] := 'Michelle';
  31.      MyList[11] := 'Theresa';
  32.      MyList[12] := 'Shirley';
  33.      MyList[13] := 'Sue';
  34.      MyList[14] := 'Marianne';
  35.      MyList[15] := 'Wilma';
  36.      MyList[16] := 'Beatrice';
  37.      MyList[17] := 'Regina';
  38.      MyList[18] := 'Sudofed';
  39.      MyList[19] := 'Trojan';
  40.      MyList[20] := 'Whip';
  41.  end; {of proc Fill_MyList}
  42.  
  43. begin
  44.     Fill_MyList;
  45.     ClrScr;
  46.     with LTTT do
  47.     begin
  48.         Lines := 15;
  49.         Y := 2;
  50.         LeftChar := chr(026);
  51.         RightChar := ' ';
  52.         AllowToggle := false;
  53.     end;
  54.     Show_List(MyList,ListWidth,20);
  55.     ClearText(1,1,80,25,white,black);
  56.     WriteAT(1,1,white,black,'Run DemoTTT.exe for the main demo program');
  57.     WriteAT(1,2,white,black,'TechnoJock''s Turbo Toolkit v5.0');
  58.     GotoXY(1,5);
  59. end.
  60.  
  61.  
  62.